home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / cli / 0Utils13.lha / 0Utils / Make_IconXX < prev    next >
Encoding:
Text File  |  1995-04-10  |  795 b   |  60 lines
  1. ; $VER: Make_IconXX 1.2 (10.04.95)
  2.  
  3. if EXISTS Make_IconXX.doc
  4.     more Make_IconXX.doc
  5. endif
  6.  
  7. set Q "is in Your searchpath; shall I perform **nthe action?"
  8. set X  X
  9.  
  10. if NOT EXISTS IconXX
  11.     set X sed
  12.     which $X > NIL:
  13.     if NOT WARN
  14.     ask "*n'$X' $Q"
  15.     if WARN
  16.  
  17.         sed -e "s/Execute/SRunSX /g" < c:IconX > IconXX
  18.  
  19.     endif
  20.     endif
  21. endif
  22.  
  23. if NOT EXISTS IconXX
  24.     set X splat
  25.     which $X > NIL:
  26.     if NOT WARN
  27.     ask "*n'$X' $Q"
  28.     if WARN
  29.  
  30.         copy c:IconX IconXX
  31.         splat -o "Execute" "SRunSX " IconXX
  32.  
  33.     endif
  34.     endif
  35. endif
  36.  
  37. if NOT EXISTS IconXX
  38.     set X replace
  39.     which $X > NIL:
  40.     if NOT WARN
  41.     ask "*n'$X' $Q"
  42.     if WARN
  43.  
  44.         Replace "Execute" "SRunSX " c:IconX TO IconXX
  45.  
  46.     endif
  47.     endif
  48. endif
  49.  
  50. if EXISTS IconXX
  51.     protect IconXX +pe
  52.     echo "Done*n"
  53. endif
  54.  
  55. unset Q
  56. unset X
  57.  
  58.  
  59.  
  60.